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-- KeyStreams.Mesa Edited by Sandman on May 12, 1978 2:20 PM 

DIRECTORY 

InlineDefs: FROM "inlinedefs" USING [BITOR, BITSHIFT], 
Keyboard: FROM "keyboard" USING [ 

CDT, charactersAvailable, Cursor, cursorTracking, InputBufferEmpty, 

KeyboardPriority, Keys, KeyTable, ks, monitor, Mouse, ProcessKeyboard, 

ReadChar, wakeup], 
KeyDefs: FROM "keydefs" USING [Keyltem, KeyName, Keys], 
ProcessDefs: FROM "processdef s" USING [ 

CV, DIW, GetPriority, InterruptLevel , Priority, SetPriority], 
StreamDefs: FROM "streamdefs" USING [ 

KeyboardHandle, KeyBufChars, StreamError, StreamHandle , StreamObject], 
SystemDefs: FROM "systemdefs" USING [AT locateHeapNode, FreeHeapNode] ; 

KeyStreams: MONITOR LOCKS Keyboard. monitor 

IMPORTS Keyboard, ProcessDefs, StreamDefs, SystemDefs 
EXPORTS KeyDefs. StreamDefs SHARES StreamDefs ■ 

BEGIN OPEN StreamDefs; 

-- The Stream part: 

KS: PUBLIC Keyboard StreamObject ♦- StreamObject [ 
ClearlnputBuffer , Keyboard. ReadChar , PutBackChar, 
WriteChar, Keyboard. InputBufferEmpty , DestroyKey, 
Keyboard[0,0,]]; 

GetDefauUKey: PUBLIC PROCEDURE RETURNS [KeyboardHandle] « 
BEGIN 

RETURN[0KS]; 
END; 

GetCurrentKey: PUBLIC PROCEDURE RETURNS [KeyboardHandle] » 
BEGIN 

RETURN[Keyboard.ks]; 
END; 

CreateKeyStream: PUBLIC PROCEDURE RETURNS [KeyboardHandle] - 
BEGIN OPEN SystemDefs; 
s: KeyboardHandle <- 

SystemDef s. All oca teHeapNode [SIZE [Key board StreamObject]]; 
St ♦- KS; 

s. in ♦- s.out ♦- 0; 
RETURN[s]; 
END; 

ControlDELtyped: PUBLIC PROCEDURE RETURNS [BOOLEAN] « 
BEGIN RETURN[Keyboard.CDT] END; 

ResetControlDEL: PUBLIC PROCEDURE - 
BEGIN Keyboard. CDT <- FALSE END; 

OpenKeyStream: PUBLIC ENTRY PROCEDURE [streamtStreamHandle] • 
BEGIN 
WITH s:stream SELECT FROM 

Keyboard »> Keyboard. ks ♦- 0s; 

ENDCASE «> SIGNAL StreamError[stream, StreamType 1 UNWIND -> NULL]; 
RETURN; 
END; 

ClearlnputBuffer: ENTRY PROCEDURE [streamrStreamHandle] « 
BEGIN 
WITH s:stream SELECT FROM 

Keyboard => s.in <- s.out <- 0; 

ENDCASE «> SIGNAL StreamError[stream, StreamType I UNWIND -> NULL]; 
RETURN; 
END; 

PutBackChar: ENTRY PROCEDURE [stream:StreamHandle, char :UNSPECIFIED] - 
BEGIN 

newout: CARDINAL; 
WITH s: stream SELECT FROM 
Keyboard «> 
BEGIN 
newout <- s.out; 



KeyStreams.mesa 



2-Sep-78 13:58:17 



Page 



newout <- IF newout ■ THEN KeyBufChars-1 ELSE newout-1; 
IF newout # s.in THEN 
BEGIN 

s.out ^ newout; 
s.buffer[s.out] ^ char; 
BROADCAST Keyboard .character sAvail able; 
END; 
END; 
ENDCASE -> SIGNAL StreamError[stream.StreamType I UNWIND «> NULL]; 
RETURN; 
END; 

WriteChar: PROCEDURE [stream:StreamHancne, char :UNSPECIFIED] ■ 
BEGIN 

SIGNAL StreamError[stream,StreamAccess]; 
RETURN 
END; 

CloseKeyStream: PUBLIC ENTRY PROCEDURE [stream:StreaniHancne] » 
BEGIN 
WITH s: stream SELECT FROM 

Keyboard «> Keyboard. ks ♦■ 0KS; 

ENDCASE »> SIGNAL StreamError[stream,StreamType I UNWIND «> NULL]; 
RETURN; 
END; 

DestroyKey: --ENTRY-- PROCEDURE [streamrStreamHandle] ■ 
BEGIN OPEN SystemDefs; 
WITH s: stream SELECT FROM 
Keyboard »> 
BEGIN 

IF 0s - Keyboard. ks THEN Keyboard. ks <- 6KS; 
IF 0s # 0KS THEN FreeHeapNode[0s 1 UNWIND °> NULL]; 
END; 
ENDCASE «> SIGNAL StreamError[stream,StreamType 1 UNWIND «> NULL]; 
RETURN; 
END; 

CursorTrack: PUBLIC PROCEDURE [b: BOOLEAN] - 
BEGIN 

Keyboard. cursorTracking <- b; 
RETURN 
END; 



Keyltem: TYPE « KeyDefs.Keyltem; 



yTable: ARRAY 


[0. 


.80 


) OF Keyltem ♦- [ 


-- MEMORY[177033B] 


Index [0. .15] 


KeyItem[FALSE, 


0, 


0] 


-- UNUSED 


KeyItem[FALSE, 


0, 


0] 


— UNUSED 


KeyItem[FALSE, 


0, 


0] 


-- UNUSED 


KeyItem[FALSE, 


0. 


0] 


-- UNUSED 


KeyItem[FALSE, 


0, 


0] 


-- UNUSED 


KeyItem[FALSE, 


0. 


0] 


-- UNUSED 


KeyltemCFALSE. 


0, 


0] 


-- UNUSED 


KeyItem[FALSE, 


0, 


0] 


-- UNUSED 


KeyItem[FALSE. 


0, 


0] 


-- Keyltemsetl 


KeyItem[FALSE. 


0. 


0] 


-- Keyltemset2 


KeyItem[FALSE. 


0, 


0] 


-- Keyltemset3 


KeyItem[FALSE, 


0, 


0] 


-- Keyltemset4 


KeyItem[rALSE, 


0, 


0] 


-- Keyltemset5 


KeyItem[FALSE, 


0, 


0] 


-- Red 


KeyItem[FALSE. 


0. 


0] 


-- Blue 


KeyItem[FALSE, 


0. 


0] 


-- Yellow 


-- MEMORY[177034B 


] 


Index [16. .31] 


KeyItem[FALSE. 


458. 


658], -- %,5 


KeyltemfFALSE, 


448, 


648], -- $.4 


KeyltemCFALSE, 


1768, 


668], ,6 


KeyItem[TRUE. 


10 


58, 


1458], -- E 


KeyItem[FALSE, 


468, 


678], — &,7 


KeyItem[TRUE, 


1048, 


1448], — D 


KeyltemfTRUE, 


1258, 


1658], -- U 


KeyItem[TRUE, 


1268, 


1668], — V 


KeyItem[FALSE, 


518, 


608], — ),0 
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KeyItem[TRUE, 113B, 153B], — K 
KeyItem[FALSE. SOB, 55B], — 



KeyItem[TRUE, 120B 

KeyltemCFALSE, 77B 

KeyItem[FALSE, 174B 

KeyItem[FALSE, 12B 

KeyltemCFALSE. lOB 

-- MEMORY[177035B] 

KeyItem[FALSE, 43B 

KeyItem[FALSE, lOOB 

KeyItem[TRUE, 127B 

KeyItem[TRUE, 

KeyItem[TRUE, 

KeyItem[TRUE, 

KeyItem[FALSE, 

KeyItem[TRUE, 

KeyItem[TRUE. 

KeyItem[TRUE, 

KeyItem[TRUE, 

KeyItem[FALSE, 

KeyItem[FALSE, 

KeyItem[FALSE. 175B 

KeyItem[FALSE, OB 

KeyltemCFALSE, OB 

-- MEMORYC177036B] 

KeyltemCFALSE. 41B 

KeyltemCFALSE, 

KeyltemCFALSE, 

KeyltemCTRUE, 

KeyltemCFALSE, 

KeyltemCTRUE, 

KeyltemCTRUE. 

KeyltemCTRUE. 

KeyltemCTRUE, 

KeyltemCFALSE, 

KeyltemCFALSE, 

KeyltemCFALSE, 

KeyltemCFALSE, 

KeyltemCFALSE, 136B 

KeyltemCFALSE. 177B 

KeyltemCFALSE. OB 

-- MEMORYC177037B] 

KeyltemCTRUE. 122B, 

KeyltemCTRUE, 

KeyltemCTRUE, 

KeyltemCTRUE, 

KeyltemCTRUE, 

KeyltemCFALSE, 

KeyltemCTRUE, 

KeyltemCTRUE, 

KeyltemCFALSE. 

KeyltemCFALSE, 

KeyltemCFALSE, 

KeyltemCFALSE. 

KeyltemCFALSE. 

KeyltemCFALSE. 

KeyltemCFALSE, 

KeyltemCFALSE, 



121B 

123B 

lOlB 

SOB 

lllB 

130B 

117B 

114B 

74B 

42B 



33B 

IIB 

106B 

OB 

103B 

112B 

102B 

132B 

OB 

76B 

72B 

15B 



124B. 

107B. 

131B. 

HOB. 
52B. 

116B. 

115B. 

OB, 

40B, 

173B, 
53B, 
OB, 
OB, 
OB, 
OB, 



160B] 

57B] 

134B] 

12B] 

lOB] 

Index 

63B 

62B 

167B 

161B 

163B 

141B 

71B 

151B 

170B 

157B 

164B 

54B 

47B 

135B 

OB 

OB 

Index 

61B] 

33B] 

IIB] 

146B] 

, OB] 

143B] 

152B3 

142B] 

172B] 

. OB] 

56B] 

73B] 

15B] 

137B] 

177B] 

. OB] 

Index 

162B] 

164B] 

147B] 

171B] 

150B] 

70B] 

156B] 

155B] 

OB] 

40B] 

133B] 

75B] 

OB] 

OB] 

OB] 

OB]] 



-- P 

- ?./ 

- lA 
-- LF 
-- BS 

C32..47] 

- J^.3 
-- 0.2 
-- W 

- Q 

-- S 
-- A 

- (.9 
-- I 
-- X 

- 
-- L 

- <,. 

t 

- }.] 

-- SPARE2 
-- SPAREl 
C48..63] 
-- l.l 
-- ESCAPE 
-- TAB 
-- F 

-- CONTROL 
-- C 
-- J 
-- B 
-- Z 

- SHIFT 

- >.. 

-- cr' 

-- DEL 

-- NOT USED (FL3) 
C64..79] 
-- R 
-- T 

- G 
-- Y 
-- H 
-- ♦.S 
-- N 
-- M 

-- LOCK 
-~ SPACE 

- {.C 

-- SHIFT 
-- SPARE3 
-- NOT USED (FL4) 
; -- NOT USED (FR5) 



ChangeKey: PUBLIC PROCEDURE C^ey: KeyDef s . KeyName, action: KeyDef s .Keyltem] 
RETURNS ColdAction: KeyDef s . Keyltem] - 
BEGIN 

oldAction <- KeyTableCLOOPHOLECkey .CARDINAL]]; 
KeyTableCLOOPIIOLECkey. CARDINAL]] ^ action; 
RETURN 
END; 



-- The Process (and initialization) part 

Init: PROCEDURE - 

BEGIN OPEN ProcessDefs; 

KeyboardLevel : In terruptLevel •« 7; 

KeyboardBit: WORD « Inl ineDefs .BITSHIFTCl .KeyboardLevel ]; 

save: Priority « GetPriori tyC]; 
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p: PROCESS; 

START Keyboard; 

ResetControlDEL[]; 

CursorTrack[TRUE]; 

Keyboard. Keys *- L00PH0LE[KeyDefs.Keys3; 

Keyboard. KeyTable ^ @KeyTab1e; 

Keyboard. ks <- 0KS; 

Keyboard. Mouse ^ L00PH0LE[424B]; 

Keyboard. Cursor <- L00PH0LE[426B]; 

SetPriority[Keyboard.KeyboardPriority]; 

p ^ FORK Keyboard, ProcessKeyboard; 

SetPriority[save]; 

CV[KeyboardLeve1] ^ ©Keyboard. wakeup; 

DlWt f- InlineDefs.BITOR[DIWt,KeyboardBit]; 

END; 

Init[]; 

END. 



